1 DIMD$(144):OPEN1,8,0,"$0":GET#1,A$,A$
2 GET#1,A$,A$:IFA$=""THENCLOSE1:GOTO8
3 GET#1,A$,B$
4 C$=MID$(STR$(ASC(A$+CHR$(0))+ASC(B$+CHR$(0))*256),2)+CHR$(32)
5 GET#1,A$:IFA$=""THEN7
6 D$(I)=D$(I)+A$:GOTO5
7 D$(I)=C$+D$(I):I=I+1:GOTO2
8 FORX=0TOI:IFMID$(D$(X),25,1)="D"THEN10
9 PRINTD$(X)
10 NEXT